home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette: Best of 1988 / BESTOF88.D64 / rally racer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  99 lines
  1. 5 poke53280,15:poke53281,15
  2. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  3. 20 print"[147]   copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 ifl=0thenl=1:load"rallycode",8,1
  6. 45 poke56,160:poke55,0:clr
  7. 50 sp=53248:pokesp+21,255:forx=0to7:pokesp+x*2,x*28+40:pokesp+1+x*2,90
  8. 60 poke2040+x,x+248:next:poke53281,0:poke53280,0
  9. 70 print"[147][158]building sprites.."
  10. 80 forx=0to64:readz:a=a+z:poke828+x,z:next
  11. 90 ifa-7027thenprint"error in ml data":end
  12. 100 s1=15872:s2=s1+64:s3=s2+64:s4=s3+64:s5=s4+64:s6=s5+64:s7=s6+64:s8=s7+64
  13. 110 fory=0to191:readz:b=b+z:pokes1+y,z:next
  14. 120 ifb-20723thenprint"error in sprite data":end
  15. 130 a=s4:b=s2:gosub190:a=s5:b=s1:gosub190
  16. 140 a=s6:b=s4:gosub200:a=s7:b=s3:gosub200
  17. 150 a=s8:b=s2:gosub200:poke792,0:poke793,192:pokesp+21,0
  18. 160 print"building track..":forx=0to413:readz:c=c+z:pokex+14848,z:next
  19. 170 ifc-58451thenprint"error in track data":end
  20. 180 poke631,13:poke198,1:sys50689
  21. 190 fory=0to21:forx=0to2:pokea+63-y*3+x,peek(b+y*3+x):next:next:return
  22. 200 fory=0to21:forx=0to2:pokea+y*3+2-x,peek(b+y*3+x):next:next
  23. 210 poke254,a/256:poke253,a-peek(254)*256:sys828:return
  24. 220 rem      ml data
  25. 230 data165,253,133,251,165,254,133,252,160,0,169,0,141,125
  26. 240 data3,162,0,177,251,61,109,3,240,9,189,117,3,13,125,3
  27. 250 data141,125,3,232,224,8,208,235,173,125,3,145,251,200
  28. 260 data192,64,208,218,96,1,2,4,8,16,32,64,128,128,64,32,16,8,4,2,1
  29. 270 rem      sprite data
  30. 280 data0,0,0,0,126,0,3,255,192,15,255,240
  31. 290 data15,255,240,15,255,240,15,0,240,6,0,96
  32. 300 data7,255,224,7,255,224,7,255,224,7,255,224
  33. 310 data15,255,240,30,0,120,31,0,248,31,255,248
  34. 320 data31,255,248,31,255,248,1,255,128,0,0,0
  35. 330 data0,0,0,0,0,0,0,0,62,0,0,127
  36. 340 data128,0,127,224,0,255,240,1,227,248,31,241
  37. 350 data248,63,248,248,127,252,124,126,254,124,60,127
  38. 360 data126,62,63,252,31,31,232,31,143,224,15,199
  39. 370 data192,7,227,128,3,255,128,0,255,128,0,127
  40. 380 data0,0,30,0,0,0,0,0,0,0,0,0
  41. 390 data0,0,0,0,0,63,0,0,63,129,248,63
  42. 400 data255,248,127,255,252,124,254,124,120,254,62,120
  43. 410 data254,62,120,254,62,120,254,62,120,254,62,124
  44. 420 data254,124,127,255,252,63,255,248,63,129,248,63
  45. 430 data0,0,0,0,0,0,0,0,0,0,0,0
  46. 440 rem      track data
  47. 450 data255,255,224,192,192,194,199,199
  48. 460 data255,255,63,3,0,0,240,255
  49. 470 data255,255,254,252,60,28,8,0
  50. 480 data255,255,0,0,63,127,127,127
  51. 490 data255,255,0,0,255,254,252,252
  52. 500 data255,255,0,0,255,3,1,113
  53. 510 data255,255,7,0,255,255,240,224
  54. 520 data255,255,240,0,240,255,0,0
  55. 530 data255,255,0,0,60,252,0,0
  56. 540 data255,255,127,63,63,63,63,63
  57. 550 data199,199,199,199,199,199,199,199
  58. 560 data255,255,255,241,192,128,0,7
  59. 570 data128,192,255,127,63,31,15,15
  60. 580 data126,252,252,252,252,252,128,0
  61. 590 data0,0,28,62,62,62,126,254
  62. 600 data33,1,3,63,63,63,31,0
  63. 610 data192,193,192,224,240,252,254,62
  64. 620 data0,255,255,31,15,15,15,15
  65. 630 data0,255,255,255,255,192,128,131
  66. 640 data127,255,255,255,255,31,15,7
  67. 650 data199,199,199,199,194,192,224,255
  68. 660 data15,15,15,15,15,31,63,255
  69. 670 data143,143,143,143,143,143,143,143
  70. 680 data15,31,31,15,0,0,128,255
  71. 690 data255,255,255,255,0,0,0,255
  72. 700 data0,248,254,254,63,31,15,15
  73. 710 data30,14,14,15,15,15,15,15
  74. 720 data6,0,0,0,255,255,255,255
  75. 730 data7,15,31,127,255,240,224,192
  76. 740 data135,135,135,135,7,7,15,31
  77. 750 data255,255,254,248,240,240,241,241
  78. 760 data255,255,0,0,0,255,240,224
  79. 770 data143,15,15,15,31,255,7,3
  80. 780 data255,255,240,224,192,192,195,195
  81. 790 data255,255,63,15,7,7,7,3
  82. 800 data143,143,143,143,143,143,143,135
  83. 810 data7,3,0,128,255,255,255,255
  84. 820 data255,128,0,0,224,240,240,240
  85. 830 data195,195,65,64,96,112,127,127
  86. 840 data255,255,255,15,7,3,3,131
  87. 850 data240,240,248,255,255,255,255,255
  88. 860 data128,3,7,255,255,255,255,255
  89. 870 data3,129,192,192,224,255,255,255
  90. 880 data195,131,3,3,7,255,255,255
  91. 890 data3,1,0,0,0,128,255,255
  92. 900 data128,192,255,255,0,0,255,255
  93. 910 data15,7,7,7,15,31,255,255
  94. 920 data240,240,240,240,248,252,254,255
  95. 930 data255,255,127,0,0,0,0,255
  96. 940 data195,131,3,7,15,31,127,255
  97. 950 data255,255,255,255,255,255,255,255
  98. 960 data191,191,191,191,191,191
  99.